home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / cli / mx2src.arc / SCANNER.DEF < prev    next >
Text File  |  1989-01-05  |  2KB  |  45 lines
  1.  
  2. (*              Copyright 1987 fred brooks LogicTek             *)
  3. (*                                                              *)
  4. (*                                                              *)
  5. (*   First Release                      12/8/87-FGB             *)
  6. (*                                                              *)
  7.  
  8. DEFINITION MODULE       SCANNER;
  9.  
  10. FROM       SYSTEM       IMPORT  ADDRESS;
  11.  
  12. TYPE    
  13.         modetype        =       (delimiter,register,translation);
  14.         modes           =       SET OF modetype;
  15.         scstate         =
  16.                 RECORD
  17.                         return          :       LONGINT;
  18.                         auxreturn       :       LONGINT;
  19.                         disp            :       CARDINAL;
  20.                         prevdisp        :       CARDINAL;
  21.                         delim           :       ADDRESS;
  22.                         delimret        :       CARDINAL;
  23.                         bufadr          :       ADDRESS;
  24.                         buflen          :       CARDINAL;
  25.                         mode            :       modes;
  26.                 END;
  27.  
  28. VAR     state           :       scstate;
  29.  
  30. PROCEDURE       scinit(bufadr: ADDRESS; buflen: CARDINAL);
  31. PROCEDURE       gtdisp(): CARDINAL;
  32. PROCEDURE       gbdisp(): CARDINAL;
  33. PROCEDURE       stdisp(disp: CARDINAL);
  34. PROCEDURE       nxparm;
  35. PROCEDURE       bkparm;
  36. PROCEDURE       dlim;
  37. PROCEDURE       stmode(mode: modes);
  38. PROCEDURE       char(VAR ch: CHAR);
  39. PROCEDURE       bkchar(VAR ch: CHAR);
  40. PROCEDURE       nxchar(VAR ch: CHAR);
  41. PROCEDURE       onenum;
  42. PROCEDURE       ltext(bufadr: ADDRESS; buflen: CARDINAL);
  43. PROCEDURE       etext(bufadr: ADDRESS; buflen: CARDINAL);
  44. END                     SCANNER.
  45.